home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr16 / lotsansi.zip / ANSI_ART.ZIP / PCNEWSV2.ZIP / GO.BAT < prev    next >
DOS Batch File  |  1990-11-25  |  2KB  |  149 lines
  1. @echo off
  2. cls
  3. TYPE COVER.ANS
  4. pause
  5. TYPE TITLE.ANS
  6. pause
  7. TYPE TITLE1.ANS
  8. pause
  9. TYPE TITLE2.ANS
  10. pause
  11. TYPE TITLE3.ANS
  12. pause
  13. cls
  14. :MAIN
  15. cls
  16. Type MAIN.ANS
  17. RESPONSE IQHGFEDCBA
  18. If errorlevel 10 goto EDITORS
  19. If errorlevel 9 goto PROFILES
  20. If errorlevel 8 goto BBSADS
  21. If errorlevel 7 goto NEWBBS
  22. If errorlevel 6 goto SALE
  23. If errorlevel 5 goto LETTERS
  24. If errorlevel 4 goto PROBLEMS
  25. If errorlevel 3 goto FUN
  26. If errorlevel 2 goto END
  27. If errorlevel 1 goto NEWS
  28. Goto MAIN
  29. :EDITORS
  30. cls
  31. Type SUBA.ANS
  32. pause
  33. Goto MAIN
  34. :PROFILES
  35. cls
  36. Type SUBB.ANS
  37. RESPONSE R21
  38. If errorlevel 3 goto PRO1
  39. If errorlevel 2 goto PRO2
  40. If errorlevel 1 goto MAIN
  41. Goto Main            
  42. :PRO1
  43. cls
  44. Type SUBB1.ANS
  45. pause
  46. cls
  47. Goto PROFILES
  48. cls
  49. :PRO2
  50. cls
  51. Type SUBB2.ANS
  52. pause
  53. cls
  54. Goto PROFILES
  55. :BBSADS
  56. cls
  57. Type SUBC.ANS
  58. RESPONSE R1234567
  59. If errorlevel 7 goto BBS6
  60. If errorlevel 6 goto BBS5
  61. If Errorlevel 5 goto BBS4
  62. If errorlevel 4 goto BBS3
  63. If errorlevel 3 goto BBS2        
  64. If errorlevel 2 goto BBS1
  65. If errorlevel 1 goto MAIN
  66. Goto BBSADS
  67. :BBS1
  68. cls
  69. Type SUBC1.ANS
  70. pause
  71. Goto BBSADS
  72. :BBS2
  73. cls
  74. Type SUBC2.ANS
  75. pause
  76. Goto BBSADS
  77. :BBS3
  78. cls
  79. Type SUBC3.ANS
  80. pause
  81. Goto BBSADS
  82. :BBS4
  83. cls
  84. Type SUBC4.ANS
  85. pause
  86. Goto BBSADS
  87. :BBS5
  88. cls
  89. Type SUBC5.ANS
  90. pause
  91. Goto BBSADS
  92. :BBS6
  93. cls
  94. Type SUBC6.ANS
  95. pause
  96. Goto BBSADS
  97. :NEWBBS
  98. cls
  99. Type SUBD.ANS
  100. RESPONSE R
  101. if errorlevel 1 goto MAIN 
  102. Goto MAIN
  103. :SALE
  104. cls
  105. Type SUBE.ANS
  106. RESPONSE R
  107. If errorlevel 1 goto MAIN
  108. Goto MAIN
  109. :LETTERS
  110. cls
  111. Type SUBF.ANS
  112. RESPONSE R
  113. If errorlevel 1 goto MAIN
  114. Goto MAIN
  115. :PROBLEMS
  116. cls
  117. Type SUBG.ANS
  118. pause
  119. cls
  120. Goto MAIN
  121. :FUN
  122. Type SUBH.ANS
  123. pause
  124. cls
  125. Goto MAIN
  126. :NEWS
  127. cls
  128. Type SUBI.ANS
  129. pause
  130. cls
  131. Goto MAIN
  132. :END
  133. cls
  134. Type SUBQ1.ANS
  135. pause
  136. cls
  137. Type SUBQ2.ANS
  138. pause
  139. cls
  140. Type SUBQ4.ANS
  141. pause
  142. cls
  143. Type SUBQ3.ANS
  144. pause
  145. cls
  146. TYPE COVER.ANS
  147. PAUSE
  148. cls
  149.